home *** CD-ROM | disk | FTP | other *** search
/ Aminet 5 / Aminet 5 - March 1995.iso / Aminet / dev / misc / LEDA_gene.lha / LEDA-3.1c-generic / incl / LEDA / impl / iint.h < prev    next >
Encoding:
C/C++ Source or Header  |  1994-08-05  |  11.7 KB  |  376 lines
  1. /*******************************************************************************
  2. +
  3. +  LEDA  3.1c
  4. +
  5. +
  6. +  iint.h
  7. +
  8. +
  9. +  Copyright (c) 1994  by  Max-Planck-Institut fuer Informatik
  10. +  Im Stadtwald, 6600 Saarbruecken, FRG     
  11. +  All rights reserved.
  12. + 
  13. *******************************************************************************/
  14.  
  15.  
  16. /*              iint.h          RD, 18.12.89 */
  17. /*     Modified for usage of c_varieties.h to provide
  18.     better portability between vanilla C, ANSI C and C++.
  19.             RD, 07.12.90.
  20.     Incorporated the definitions of c_varieties.h
  21.     as some compilers for Transputers aren't that
  22.     happy with c_varieties.h. Placed the compiler dependencies
  23.     in iint.h.
  24.             RD, 12.04.91.
  25.     Added special definitions for sparc, RD, 10/91.
  26.     Added "const" specifier for parameters, RD, 04.11.91.
  27.     Added functions cIasuint, cIaslong, cIasulong,
  28.         Iisint, Iisuint, Iislong, Iisulong,
  29.         intasI, uintasI, longasI, ulongasI, RD, 16.12.91
  30.     Put definition of INTTOPLACE into iutil.c, RD, 16.12.91
  31. */
  32.  
  33. #ifndef _IINT_H
  34. #define _IINT_H
  35.  
  36. /*     stdio.h is needed for the definition of FILE     */
  37.  
  38. #ifndef __PARC__
  39. #include <stdio.h>
  40. #endif
  41.  
  42. /*    Here are the compiler dependencies    */
  43.  
  44. #ifdef ATARI
  45. #define UNSIGNED16    unsigned int
  46. #define UNSIGNED32    unsigned long
  47. #define SIGNED32    long
  48. #include <malloc.h>
  49. #define MYMALLOC    malloc
  50. #define MYFREE    free
  51. #endif
  52.  
  53. #ifdef sun
  54. #ifdef sparc
  55. #define UNSIGNED16    unsigned short
  56. #define UNSIGNED32    unsigned long
  57. #define SIGNED32    long
  58. #define UNSIGNED64    unsigned long
  59. #define SIGNED64    long
  60. /* Wrong definition, but never used */
  61. #define USE_64_BIT_INTEGERS
  62. #define USE_SPARC_ASM
  63. #else
  64. #define UNSIGNED16    unsigned short
  65. #define UNSIGNED32    unsigned long
  66. #define SIGNED32    long
  67. #define USE_DOUBLEPLACE
  68. #endif
  69. /*
  70. #include <malloc.h>
  71. */
  72. #define MYMALLOC    malloc
  73. #define MYFREE    free
  74. #endif
  75.  
  76. #ifdef HELIOS
  77. #define USE_DOUBLEPLACE
  78. #define UNSIGNED16    unsigned short
  79. #define UNSIGNED32    unsigned long
  80. #define SIGNED32    long
  81. #include <stdlib.h>
  82. #define MYMALLOC    malloc
  83. #define MYFREE    free
  84. #endif
  85.  
  86. #ifdef __PARC__
  87. #define USE_64_BIT_INTEGERS
  88. #define USE_DOUBLEPLACE
  89. #define UNSIGNED16    unsigned short
  90. #define UNSIGNED32    unsigned int
  91. #define SIGNED32    int
  92. #define UNSIGNED64    unsigned long
  93. #define SIGNED64    long
  94. #include <stdlib.h>
  95. #define MYMALLOC    malloc
  96. #define MYFREE    free
  97. #endif
  98.  
  99. #ifdef NeXT
  100. #define USE_DOUBLEPLACE
  101. #define UNSIGNED16    unsigned short
  102. #define UNSIGNED32      unsigned long
  103. #define SIGNED32        long
  104. #include <stdlib.h>
  105. #define MYMALLOC        malloc
  106. #define MYFREE        free
  107. #endif
  108.  
  109. #ifndef UNSIGNED16
  110. #define USE_DOUBLEPLACE
  111. #define UNSIGNED16    unsigned short
  112. #define UNSIGNED32      unsigned long
  113. #define SIGNED32        long
  114. /*
  115. #include <malloc.h>
  116. */
  117. #define MYMALLOC        malloc
  118. #define MYFREE        free
  119. #endif
  120.  
  121. /*    Now let us see what are the biggest integers to use    */
  122.  
  123. #ifndef USE_64_BIT_INTEGERS
  124.     typedef    UNSIGNED16    PLACE, *pPLACE;
  125. #define LOGPLACE 16
  126. #else
  127.     typedef    UNSIGNED32    PLACE, *pPLACE;
  128. #define LOGPLACE 32
  129. #endif
  130.  
  131. /*    Here is the part of c_varieties.h we shall use    */
  132.  
  133. #ifndef C_VARIETIES_H
  134.  
  135. #ifdef __cplusplus
  136. #define EXTERN_FUNCTION( rtn, args ) extern "C" { rtn args; }
  137. #define _VOID_ /* anachronism */
  138. #else
  139. #ifdef __STDC__
  140. #ifdef __PARC__
  141. #define EXTERN_FUNCTION( rtn, args ) rtn()
  142. #define _VOID_
  143. #define const
  144. #else
  145. #define EXTERN_FUNCTION( rtn, args ) rtn args
  146. #define _VOID_ void
  147. #endif
  148. #else
  149. #define EXTERN_FUNCTION( rtn, args ) rtn()
  150. #define _VOID_
  151. #define const
  152. #endif
  153. #endif
  154.  
  155. #endif
  156.  
  157. /*    And now come some basic definitions    */
  158.  
  159. #ifndef BOOLEANDEF
  160. #define BOOLEANDEF
  161.     typedef int     BOOLEAN;
  162. #endif
  163. #ifndef FALSE
  164. #define FALSE 0
  165. #endif
  166. #ifndef TRUE
  167. #define TRUE 1
  168. #endif
  169. #ifndef NULL
  170. #define NULL 0
  171. #endif
  172.  
  173. #define PLUS 0
  174. #define MINUS 1
  175.  
  176. /*    This is the main data type    */
  177.  
  178. typedef struct {
  179.     PLACE          *vec;
  180.     int             maxlength, length, sign;
  181. }               Integer, *pInteger;
  182.  
  183. /*      Meaning of the function names:
  184.         I:      Integer
  185.         int:    int
  186.         as:     assign
  187.         pl:     plus
  188.         mi:     minus
  189.     eq:    equal
  190.     gt:    greater than
  191.     mu:    multiply
  192.     sl:    shift left
  193.     sr:    shift right
  194. */
  195.  
  196. EXTERN_FUNCTION(void cI, (Integer *));            /* Creator */
  197. EXTERN_FUNCTION(void cIasint, (Integer *, int));    /* Creator + Init int */
  198. EXTERN_FUNCTION(void cIasuint, (Integer *, unsigned int));
  199.     /* Creator + Init unsigned int */
  200. EXTERN_FUNCTION(void cIaslong, (Integer *, long));
  201.     /* Creator + Init long */
  202. EXTERN_FUNCTION(void cIasulong, (Integer *, unsigned long));
  203.     /* Creator + Init unsigned long */
  204. EXTERN_FUNCTION(void cIasI, (Integer *, const Integer *));
  205.     /* Creator + Init Int */
  206. EXTERN_FUNCTION(void cImaxlength, (Integer *, int));
  207.      /* maxlength wird vorgegeben */
  208. EXTERN_FUNCTION(void dI, (Integer *));            /* Destructor */
  209.  
  210. EXTERN_FUNCTION(Integer * ncI, (_VOID_));        /* new Integer + cI */
  211. EXTERN_FUNCTION(Integer * ncIasint, (int));    /* new Integer + cIasint */
  212. EXTERN_FUNCTION(Integer * ncIasI, (Integer *));    /* new Integer + cIasI */
  213. EXTERN_FUNCTION(Integer * ncImaxlength, (int));    /* new Integer + cImaxlength */
  214. EXTERN_FUNCTION(void ddI, (Integer *));        /* dI + delete Integer */
  215.  
  216. EXTERN_FUNCTION(void Ierror, (const char *));    /* Fehlermeldung */
  217. EXTERN_FUNCTION(char *Imalloc, (int));    /* Systemunabhaengiges malloc */
  218. EXTERN_FUNCTION(void Ifree, (char *));    /*     "    free */
  219.  
  220. EXTERN_FUNCTION(void IasI, (Integer *, const Integer *));    /* Zuweisung */
  221. EXTERN_FUNCTION(void Iasint, (Integer *, int));        /* Zuweisung einer int */
  222. EXTERN_FUNCTION(void Ias0, (Integer *));
  223. EXTERN_FUNCTION(void Ias1, (Integer *));
  224. #ifdef USE_THIS_LOT_OF_MACROS
  225. #define IAS0(A) ((A)->length=0, (A)->sign=PLUS)
  226. #define IAS1(A) ((A)->length=1, *((A)->vec)=1, (A)->sign=PLUS)
  227. #endif
  228. EXTERN_FUNCTION(BOOLEAN Iisint, (const Integer *));
  229. EXTERN_FUNCTION(BOOLEAN Iisuint, (const Integer *));
  230. EXTERN_FUNCTION(BOOLEAN Iislong, (const Integer *));
  231. EXTERN_FUNCTION(BOOLEAN Iisulong, (const Integer *));
  232. EXTERN_FUNCTION(int intasI, (const Integer *));
  233. EXTERN_FUNCTION(unsigned int uintasI, (const Integer *));
  234. EXTERN_FUNCTION(long longasI, (const Integer *));
  235. EXTERN_FUNCTION(unsigned long ulongasI, (const Integer *));
  236.  
  237. EXTERN_FUNCTION(int Ilog, (const Integer *));    /* Zweier Logarithmus */
  238. EXTERN_FUNCTION(int intlog, (int));    /* Zweier Logarithmus */
  239.  
  240. EXTERN_FUNCTION(void IasIplI, (Integer *, const Integer *, const Integer *));
  241.     /* Addition + */
  242. EXTERN_FUNCTION(void IasImiI, (Integer *, const Integer *, const Integer *));
  243.     /* Subtraktion - */
  244. EXTERN_FUNCTION(void IplasI, (Integer *, const Integer *));
  245.     /* Addition += */
  246. EXTERN_FUNCTION(void ImiasI, (Integer *, const Integer *));
  247.     /* Subtraktion -= */
  248. EXTERN_FUNCTION(void Ineg, (Integer *));
  249.     /* aendere das Vorzeichen */
  250. EXTERN_FUNCTION(void Iinc, (Integer *));        /* ++ */
  251. EXTERN_FUNCTION(void Idec, (Integer *));        /* -- */
  252.  
  253. EXTERN_FUNCTION(BOOLEAN IeqI, (const Integer *, const Integer *));
  254.     /* Vergleich == */
  255. EXTERN_FUNCTION(BOOLEAN IgtI, (const Integer *, const Integer *));
  256.     /* Groesser > */
  257. EXTERN_FUNCTION(BOOLEAN IneI, (const Integer *, const Integer *));
  258. EXTERN_FUNCTION(BOOLEAN IgeI, (const Integer *, const Integer *));
  259. EXTERN_FUNCTION(BOOLEAN IltI, (const Integer *, const Integer *));
  260. EXTERN_FUNCTION(BOOLEAN IleI, (const Integer *, const Integer *));
  261. EXTERN_FUNCTION(BOOLEAN Ige0, (const Integer *));
  262. EXTERN_FUNCTION(BOOLEAN Igt0, (const Integer *));
  263. EXTERN_FUNCTION(BOOLEAN Ile0, (const Integer *));
  264. EXTERN_FUNCTION(BOOLEAN Ilt0, (const Integer *));
  265. EXTERN_FUNCTION(BOOLEAN Ieq0, (const Integer *));
  266. EXTERN_FUNCTION(BOOLEAN Ieq1, (const Integer *));
  267. EXTERN_FUNCTION(int sign, (const Integer *)); /* returns +1, 0, -1 */
  268.  
  269. #ifdef USE_THIS_LOT_OF_MACROS
  270. #define INEI(A, B)    (!IeqI((A), (B)))
  271. #define IGEI(A, B)    (!IgtI((B), (A)))
  272. #define ILTI(A, B)    (IgtI((B), (A)))
  273. #define ILEI(A, B)    (!IgtI((A), (B)))
  274. #define IGE0(A)        ((A)->sign==PLUS)
  275. #define IGT0(A)        (((A)->sign==PLUS)&&((A)->length))
  276. #define ILE0(A)        (!(A)->length || ((A)->sign==MINUS))
  277. #define ILT0(A)        ((A)->sign==MINUS)
  278. #define IEQ0(A)        (!(A)->length)
  279. #define IEQ1(A)    ((*((A)->vec)==1)&&((A)->length==1)&&((A)->sign==PLUS))
  280. #endif
  281.  
  282. EXTERN_FUNCTION(void IasImuI, (Integer *, const Integer *, const Integer *));
  283.     /* Multiplikation * */
  284. EXTERN_FUNCTION(void ImuasI, (Integer *, const Integer *));
  285.     /* Multiplikation *= */
  286. EXTERN_FUNCTION(void IasImuP, (Integer *, const Integer *, PLACE));
  287.     /* Multiplikation mit PLACE */
  288. EXTERN_FUNCTION(void ImuasP, (Integer *, PLACE));
  289.  
  290. EXTERN_FUNCTION(void IasIsrint, (Integer *, const Integer *, unsigned int));
  291.     /* Shift nach rechts */
  292. EXTERN_FUNCTION(void Israsint, (Integer *, unsigned int));
  293.     /* Shift nach rechts */
  294. EXTERN_FUNCTION(void IasIslint, (Integer *, const Integer *, unsigned int));
  295.     /* Shift nach links */
  296. EXTERN_FUNCTION(void Islasint, (Integer *, unsigned int));
  297.     /* Shift nach links */
  298. EXTERN_FUNCTION(BOOLEAN Isr1, (Integer *));    /* Shift um eine Stelle */
  299. EXTERN_FUNCTION(BOOLEAN Ieven, (const Integer *));    /* ist a gerade? */
  300. #ifdef USE_THIS_LOT_OF_MACROS
  301. #define IEVEN(A)    (!(*((A)->vec) & 1))
  302. #endif
  303.  
  304. EXTERN_FUNCTION(PLACE uIdiasP, (Integer *, PLACE));
  305.     /* Division durch PLACE, kein Vorzeichen, Rest wird zurueckgegeben. */
  306. EXTERN_FUNCTION(PLACE IdiasP, (Integer *, PLACE));
  307.     /* Division durch PLACE, mit Vorzeichen, Rest wird zurueckgegeben. */
  308. EXTERN_FUNCTION(PLACE uIasIdiP, (Integer *, const Integer *, PLACE));
  309.     /* Division durch PLACE, kein Vorzeichen, Rest wird zurueckgegeben. */
  310. EXTERN_FUNCTION(PLACE IasIdiP, (Integer *, const Integer *, PLACE));
  311.     /* Division durch PLACE, mit Vorzeichen, Rest wird zurueckgegeben. */
  312. EXTERN_FUNCTION(void uIdiv, (Integer *q, Integer *r, const Integer *a, const Integer *b));
  313.     /* Division mit Rest a=bq+r, kein Vorzeichen */
  314. EXTERN_FUNCTION(void Idiv, (Integer *q, Integer *r, const Integer *a, const Integer *b));
  315.     /* Division mit Rest a=bq+r, mit Vorzeichen */
  316. EXTERN_FUNCTION(void IasIdiI, (Integer *, const Integer *, const Integer *));
  317.     /* Division, Quotient */
  318. EXTERN_FUNCTION(void IasIreI, (Integer *, const Integer *, const Integer *));
  319.     /* Division, Rest */
  320. EXTERN_FUNCTION(void IdiasI, (Integer *, const Integer *));
  321.     /* Division, Quotient */
  322. EXTERN_FUNCTION(void IreasI, (Integer *, const Integer *));
  323.     /* Division, Rest */
  324.  
  325. EXTERN_FUNCTION(int fscanI, (FILE *, Integer *));    /* Eingabe von Datei */
  326. EXTERN_FUNCTION(int fprintI, (FILE *, const Integer *));
  327.     /* Ausgabe auf Datei */
  328.  
  329. EXTERN_FUNCTION(void Idgcd, (Integer *d, const Integer *a, const Integer *b));
  330.     /* Euklidscher Algorithmus (Division)  d=gcd(a, b); */
  331. EXTERN_FUNCTION(void Ibgcd, (Integer *d, const Integer *a, const Integer *b));
  332.     /* binaerer gcd */
  333. #define Igcd    Ibgcd
  334.     /* Standard gcd    */
  335. EXTERN_FUNCTION(void Ielba,(Integer*d,Integer*u,Integer*v,const Integer*a,const Integer*b));
  336.     /* Euklid-Lenstra-Berlekamp  d=gcd(a, b)==ua+vb; */
  337. EXTERN_FUNCTION(void Ibelba,(Integer*d,Integer*u,Integer*v,const Integer*a,const Integer*b));
  338.     /* binaerer ELBA */
  339. EXTERN_FUNCTION(void Ireduce, (Integer *a, Integer *b));    /* Kuerze gcd */
  340.  
  341. EXTERN_FUNCTION(void IasrandomI, (Integer * a, const Integer * b));
  342.  /*
  343.   * Zufallsgenerator: waehle a zufaellig mit 0<=|a|<|b|, a->sign=b->sign.
  344.   * a und b muessen verschieden sein.
  345.   */
  346.  
  347. EXTERN_FUNCTION(char *wIdata1, (const Integer * a, int *l));
  348.  /*
  349.   * Erster Teil der Daten zum schnellen Speichern oder Verschicken einer
  350.   * Integer a: l = Anzahl der bytes; return Basisadresse.
  351.   */
  352. EXTERN_FUNCTION(char *wIdata2, (const Integer * a, int *l));
  353.  /* Zweiter Teil der Daten. */
  354. EXTERN_FUNCTION(char *rIdata1, (const Integer * a, int *l));
  355.  /*
  356.   * Zieladresse und Laenge fuer das Lesen oder Empfangen einer Integer,
  357.   * erster Teil.
  358.   */
  359. EXTERN_FUNCTION(char *rIdata2, (Integer * a, int *l));
  360.  /*
  361.   * Zweiter Teil zum Empfangen oder Lesen. Vor Aufruf dieser Funktion muss
  362.   * der erste Teil der Integer an die Adresse aus dem rIdata1-Aufruf
  363.   * geschrieben sein.
  364.   */
  365.  
  366. EXTERN_FUNCTION(int Itoa, (const Integer * n, char s[]));
  367. EXTERN_FUNCTION(int atoI, (char s[], Integer * n));
  368.  
  369. /*
  370. EXTERN_FUNCTION(_VOID_ Iprint_statistics, (_VOID_));
  371. */
  372.  
  373. EXTERN_FUNCTION(double Itodouble, (const Integer *));
  374.  
  375. #endif
  376.